home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 25
/
64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64
/
listing 14
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
278b
|
13 lines
0 goto10
1 , 0300 ad 00 1c lda $1c00
2 , 0303 29 10 and #$10
3 , 0305 4a lsr
4 , 0306 8d 00 1c sta $1c00
5 , 0309 4c 00 03 jmp $0300
6 :
10 open1,8,15
20 forx=0to11:reada
30 print#1,"m-w"chr$(x)chr$(3)chr$(1)chr$(a):next
40 print#1,"m-e"chr$(0)chr$(3)
50 data173,0,28,41,16,74,141,0,28,76,0,3